perm filename REV[IRC,LCS] blob
sn#088394 filedate 1977-03-30 generic text, type T, neo UTF8
00200 ARRAY D1(801),D2(905),D3(1020),D4(1125),D5(128),D6(45),D7(23),D8(18);
00300 VARIABLE /R;
00500 REVINIT←1;R←0;
00600 COMPILE;
00700 INSTRUMENT REV;
00800 REV1(R,801,.827,D1);
00900 REV1(R,901,.805,D2);
01000 REV1(R,1011,.783,D3);
01100 REV1(R,1123,.764,D4);
01200 REV2(U1+U2+U3+U4,123,.7,D5);
01300 REV2(U5,43,.7,D6);
01400 REV2(U6,13,.7,D7);
01500 R←0;OUTA←OUTA+U7;OUTB←OUTB+U7;OUTC←OUTC+U7;OUTD←OUTD+U7;
01700 END;
01800 FINISH;